home *** CD-ROM | disk | FTP | other *** search
/ FM Towns: Free Software Collection 6 / FM Towns Free Software Collection 6.iso / ms_dos / nifhand / bmail.aut < prev    next >
Encoding:
Text File  |  1993-07-08  |  3.0 KB  |  173 lines
  1. %1=2000
  2. %2=20
  3.  
  4. IF $1=="Q" || $1=="QUICK"
  5.  GOTO M2
  6. ENDIF
  7.  
  8. LABEL M1
  9. ECHO "\r\r バイナリメールの送信を行います"
  10. ECHO "\r 設定は以下のようになっています\r"
  11. ECHO "\r 1 送信ファイル名：$10"
  12. ECHO "\r 2 題  名        ：$11"
  13. IF $12!=""
  14. ECHO "\r 3 期  日  指  定：$12"
  15. ENDIF
  16. ECHO "\r 4 送 信 相 手 ID：1:$2000,2:$2001,3:$2002,4:$2003,5:$2004"
  17. ECHO "\r                 ：6:$2005,7:$2006,8:$2007,9:$2008,0:$2009"
  18.  
  19. ECHO "\r\r^G以上でよろしいですか？ (Y/N) (E:中止) (ﾘﾀｰﾝｷｰ不要)＞\r"
  20. LOOKKEY 60
  21.  CASE "Y"
  22.   GOTO M2
  23.  CASE "y"
  24.   GOTO M2
  25.  CASE "N"
  26.  CASE "n"
  27.  CASE "E"
  28.   GOTO E
  29.  CASE "e"
  30.   GOTO E
  31.  CASE/TIMEOUT
  32.   GOTO E
  33. FREE
  34.  
  35. ECHO "\r^G訂正したいものを番号で選んで下さい (1～5) (ﾘﾀｰﾝｷｰ不要)\r"
  36. LOOKKEY 60
  37.  CASE "1"
  38.   ECHO "\r正しい送信ファイル名を入力して下さい (+ﾘﾀｰﾝ) ＞"
  39.   $10=input()
  40.   GOTO M1
  41.  CASE "2"
  42.   ECHO "\r正しい題名を入力して下さい (+ﾘﾀｰﾝ) ＞"
  43.   $11=input()
  44.   GOTO M1
  45.  CASE "3"
  46.   ECHO "\r正しい期日(yymmdd)を入力して下さい (+ﾘﾀｰﾝ) ＞"
  47.   $12=input()
  48.   GOTO M1
  49.  CASE "4"
  50.  CASE/TIMEOUT
  51.   GOTO E
  52. FREE
  53.  
  54. ECHO "\r訂正したいＩＤを番号で選んで下さい (1～0) (ﾘﾀｰﾝｷｰ不要) ＞"
  55. LOOKKEY 60
  56.  CASE "1"
  57.   ECHO "\r正しいＩＤ１を入力して下さい ＞"
  58.   $2000=input()
  59.  CASE "2"
  60.   ECHO "\r正しいＩＤ２を入力して下さい ＞"
  61.   $2001=input()
  62.  CASE "3"
  63.   ECHO "\r正しいＩＤ３を入力して下さい ＞"
  64.   $2002=input()
  65.  CASE "4"
  66.   ECHO "\r正しいＩＤ４を入力して下さい ＞"
  67.   $2003=input()
  68.  CASE "5"
  69.   ECHO "\r正しいＩＤ５を入力して下さい ＞"
  70.   $2004=input()
  71.  CASE "6"
  72.   ECHO "\r正しいＩＤ６を入力して下さい ＞"
  73.   $2005=input()
  74.  CASE "7"
  75.   ECHO "\r正しいＩＤ７を入力して下さい ＞"
  76.   $2006=input()
  77.  CASE "8"
  78.   ECHO "\r正しいＩＤ８を入力して下さい ＞"
  79.   $2007=input()
  80.  CASE "9"
  81.   ECHO "\r正しいＩＤ９を入力して下さい ＞"
  82.   $2008=input()
  83.  CASE "0"
  84.   ECHO "\r正しいＩＤ０を入力して下さい ＞"
  85.   $2009=input()
  86.  CASE/TIMEOUT
  87.   GOTO E
  88. FREE
  89. GOTO M1
  90.  
  91.  
  92. LABEL M2
  93.  
  94. CALL MAIL1
  95.  
  96. LABEL SBM1
  97. SEND "UPL TYPE:BIN PROT:BPL\r",1
  98. WAIT "^Jファイル名 (改行"
  99. WAIT "^J："
  100. SEND "$100$10\r",1
  101. WAIT "－アップロード開始－"
  102. WAIT ""
  103. WAIT "Ｘ",1
  104. CMD ! "BPL"
  105.  
  106. CALL MAIL2
  107.  
  108. %4=%1
  109. WHILE %4 < %1+100
  110.  %4=%4+1
  111.  IF $[%4] != ""
  112.   %1=%4-1
  113.   GOTO SBM1
  114.  ENDIF
  115. ENDWHILE
  116.  
  117. LABEL E
  118. $1=$10=$11=$12=""
  119. END
  120.  
  121. PROC MAIL1
  122. SEND "MAIL\r",1
  123. LOOK
  124.  CASE "^J＞"
  125.   SEND "SET MENU OFF\r",1
  126.   WAIT "^JMAIL>"
  127.  CASE "^JMAIL>"
  128. FREE
  129. ENDPROC
  130.  
  131. PROC MAIL2
  132. LABEL TO
  133. LOOK
  134.  CASE "^J宛先"
  135.   WAIT "^J："
  136.   $1=$[%1]
  137.   $[%1]=""
  138.   %1=%1+1
  139.   SEND "$1\r",1
  140.   GOTO TO
  141.  CASE "◆宛先を指定して"
  142.   WAIT "^J："
  143.   SEND "$5\r",1
  144.   WAIT "^J："
  145.   SEND "\r",1
  146.   GOTO TO
  147.  CASE "^J確認"
  148.   WAIT "^J："
  149.   SEND "1\r",1
  150.   GOTO TO
  151.  CASE "^J題名"
  152.   WAIT "^J："
  153.   IF $11!=""
  154.    SEND "$11\r",1
  155.   ELSE
  156.    SEND "題名を付け忘れました\^_\^;\r",1
  157.   ENDIF
  158.   GOTO TO
  159.  CASE "^J送信"
  160.   WAIT "^J："
  161.   IF $12==""
  162.    SEND "1\r",1
  163.   ELSE
  164.    SEND "3\r",1
  165.    WAIT "^J送信期日"
  166.    WAIT "^J："
  167.    SEND "$12\r",1
  168.   ENDIF
  169.   GOTO TO
  170.  CASE "^JMAIL>"
  171. FREE
  172. ENDPROC
  173.